home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc1
/
glosstsk.lha
/
GlossTask1_70DEMO
/
Install_to_Harddisk
< prev
next >
Wrap
Text File
|
1996-03-28
|
2KB
|
126 lines
; GlossTask install to harddisk
; Håkan Parting 28 Jan 1996
(working "Setting up installation. Please wait...")
; (run "copy Glos#? to ram:GlossT")
; (run "copy Catalogs to ram:GlossT/catalogs ALL")
; (run "copy Docs to ram:GlossT/docs ALL")
; (run "copy Vocables to ram:GlossT/Vocables ALL")
; (run "copy s to ram:GlossT/s ALL")
(run "copy #? to ram:GlossT ALL")
(run "delete ram:GlossT/Install_#?")
(complete 10)
(set glos-dest
(askdir
(prompt "Where would you like to install GlossTask?\nThe directory will be created automatically.")
(help @askdir-help)
(default @default-dest)
)
)
(makedir (cat glos-dest "/GlossTask" )
(infos)
)
(set glos-dest (cat glos-dest "/GlossTask" ))
(complete 20)
(working "Installing GlossTask program...")
(copyfiles
(help @copyfiles-help)
(source "ram:GlossT/GlossTask")
(dest glos-dest )
(infos)
)
(complete 30)
(copyfiles
(help @copyfiles-help)
(source "ram:GlossT/Glos_Settings")
(dest glos-dest)
(infos)
)
(copyfiles
(help @copyfiles-help)
(source "ram:GlossT/Läs_mig_nu!")
(dest glos-dest)
(infos)
)
(complete 40)
(copyfiles
(help @copyfiles-help)
(source "ram:GlossT/Readme_first")
(dest glos-dest)
(infos)
)
(copyfiles
(help @copyfiles-help)
(source "ram:GlossT/WB2.0Users_read_this!!")
(dest glos-dest)
(infos)
)
(complete 50)
(copyfiles
(help @copyfiles-help)
(source "ram:GlossT/AGuideConv")
(dest glos-dest)
)
(copyfiles
(help @copyfiles-help)
(source "Ram:GlossT/AguideConv.doc")
(dest glos-dest)
(infos)
)
(complete 60)
(copyfiles
(prompt "Do you want to install the vocable-lists?")
(help @copyfiles-help)
(source "ram:GlossT/Vocables")
(dest (cat glos-dest "/Vocables" ))
(all)
(confirm)
)
(complete 70)
(working "Installing documentation")
(copyfiles
(prompt "Which documentation do you want to install?")
(help @copyfiles-help)
(source "ram:GlossT/docs")
(dest (cat glos-dest "/Docs" ))
(all)
(infos)
(confirm)
)
(complete 80)
(working "Installing local-translations")
(copyfiles
(prompt "Which language do you want to install?")
(help @copyfiles-help)
(source "ram:GlossT/catalogs")
(dest (cat glos-dest "/Catalogs" ))
(choices "Svenska")
(confirm)
)
(complete 90)
(copyfiles
(prompt "Installing config-file to S: directory")
(help @copyfiles-help)
(source "ram:GlossT/s/GlossTask.config" )
(dest "S:")
(Confirm)
)
(working "Cleaning up..")
(run "delete ram:GlossT ALL")
(complete 100)
(exit)